//  удаление предыдущего бокса, если он существует
!ifdef box2
$draw del pid !box2
!endif

// создание нового бокса
$draw icon 1 ztest 0 group 1000000 box hbox 10 height 1 create1 color #3000ffff ccolor #ffffffff lwidth 2
!box2 = pid  // запоминаем id бокса в переменной box
$print text "Режим выбора области. Обозначьте курсором крайние точки области." time 10
